home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / PROBLEMS / BENCHMARK / BUBBLESORT / bubbletest / provefunc < prev    next >
Text File  |  1992-05-12  |  982b  |  37 lines
  1.  
  2.  ;FUNCTION INT field(INT fieldnr,CHARPTR target,CHARPTR source)
  3.      ;INT sourcei     
  4.      ;INT targeti     
  5.      ;INT fieldcount
  6.      ;INT readyflag
  7.  
  8.      ;LET readyflag=0;
  9.      ;LET target[0]=0;
  10.      ;LET sourcei=0;
  11.      ;LET targeti=0;
  12.      ;LET fieldcount=1
  13.      ;WHILE ! readyflag
  14.         ;WHILE (source[sourcei]<=32) && (source[sourcei]!=0)
  15.            ;LET sourcei=sourcei+1;
  16.         ;ENDWHILE
  17.         ;IF source[sourcei]==0
  18.            ;LET readyflag=1;
  19.         ;ELSE
  20.            ;WHILE (source[sourcei]!=32) && (source[sourcei]!=0)
  21.               ;IF fieldcount==fieldnr
  22.                  ;LET readyflag=1;
  23.                  ;LET target[targeti]=source[sourcei];
  24.                  ;LET targeti=targeti+1;
  25.               ;ENDIF     
  26.               ;LET sourcei=sourcei+1
  27.            ;ENDWHILE
  28.            ;IF readyflag
  29.               ;LET target[targeti]=0
  30.            ;ELSE
  31.               ;LET fieldcount=fieldcount+1
  32.            ;ENDIF
  33.         ;ENDIF
  34.      ;ENDWHILE
  35.  ;ENDFUNCTION    
  36.  
  37.